home *** CD-ROM | disk | FTP | other *** search
-
- NOTE -dBASE II EXECUTIVE COMMAND FILE RETRIEVE.CMD
- CLEAR
- ERASE
- SET TALK OFF
- ERASE
- STORE DATE() TO M:DATE
- STORE T TO NODATE
- @ 1,0 SAY "-----------------------------------------------------------------------"
- @ 2,27 SAY "**** R+E+T+R+I+E+V+E ****"
- @ 4,22 SAY "CARDIAC ELECTROPHYSIOLOGY LABORATORY"
- @ 5,29 SAY "DIVISION OF CARDIOLOGY"
- @ 6,21 SAY "CHILDREN'S HOSPITAL RESEARCH FOUNDATION"
- @ 7,0 SAY "-----------------------------------------------------------------------"
- DO WHILE NODATE
- @ 12,24 SAY 'ENTER DATE (mm/dd/yy) ' GET M:DATE PICTURE '99/99/99'
- READ
- IF VAL($(M:DATE,1,2))<1;
- .OR. VAL($(M:DATE,1,2))>12;
- .OR. VAL($(M:DATE,4,2))<1;
- .OR. VAL($(M:DATE,4,2))>31;
- .OR. VAL($(M:DATE,7,2))<83
- STORE 'mm/dd/yy' TO M:DATE
- @ 7,21 SAY '**** BAD DATE -- PLEASE RE-ENTER. ****'
- STORE T TO NODATE
- ELSE
- STORE F TO NODATE
- ENDIF
- ENDDO
- SET DATE TO &M:DATE
- @ 5,23 SAY ' '
- @ 7,20 SAY ' '
- STORE 'REFS' TO FILE0
- STORE 'REFS index REF:NO' TO FILE1
- DO WHILE T
- ERASE
- ?
- ?
- ? ' *** R+E+T+R+I+E+V+E MENU ***'
- ?
- ?
- ? ' <0> EXIT'
- ? ' <1> ENTER NEW ARTICLES'
- ? ' <2> ENTER NEW ARTICLES WITH'
- ? ' (AUTOMATIC REFERENCE NUMBERING)'
- ? ' <3> LOCATE ARTICLES'
- ? ' <4> QUICKLY LOCATE ARTICLES'
- ? ' (BY FIRST AUTHOR, FIRST KEY WORD,'
- ? ' OR FIRST 20 LTRS OF SOURCE)'
- ? ' <5> LOCATE ARTICLES & MAKE TEXT FILE'
- ? ' <6> RE-INDEX FILES'
- ? ' <7> MAKE LABELS FOR ARTICLES'
- ? ' <8> EDIT DATA BASE RECORDS'
- @ 23,10 SAY 'ENTER DESIRED ACTION'
- @ 22,0 SAY ' '
- WAIT TO ACTION
- DO CASE
- CASE ACTION='0'
- ERASE
- USE &FILE0
- GO BOTTOM
- STORE "Y" TO ANS
- STORE STR(#,6) TO REC:NO
- @ 2,19 SAY '*** REFS.DBF NOW CONTAINS '-REC:NO+' RECORDS ***'
- @ 16,1 SAY ' '
- SET TALK ON
- @ 12,10 SAY '*** HIT ANY KEY TO CONTINUE ***'
- @ 11,0 SAY ' '
- WAIT
- ERASE
- @ 7,22 SAY "WANT TO RETURN TO MAIN MENU? (Y/N) " GET ANS PICTURE "A"
- READ
- IF !(ANS)="Y"
- CLEAR
- DO MENU
- ELSE
- CLEAR
- ERASE
- QUIT
- ENDIF
- CASE ACTION='1'
- DO NEW
- CASE ACTION='2'
- DO AUTONUMB
- CASE ACTION='3'
- DO FIND
- CASE ACTION='4'
- DO FASTFIND
- CASE ACTION='5'
- DO TEXT
- CASE ACTION='6'
- DO INDEX
- CASE ACTION='7'
- DO LABEL
- CASE ACTION='8'
- DO EDIT
- OTHERWISE
- ? '**** Invalid response, re-enter ****'
- ENDCASE
- ENDDO